for i=1:9
    Data=R_Scalar{1,i};
    subplot(3,3,i),surf(Data),title('尺度',num2str(i));
end  